sub samcoupejgrab(txpo as uinteger, typo as ubyte):
  asm
    ;call $0136
    end asm
  end sub

'$0136 - JGRAB - Stores a block of data from a mode 3/4 screen to a buffer.
